﻿Module mdl_ViewMachineService
#Region "ViewMachineService_GetInf"

    Public Function ViewMachineService_GetInf(ByVal equipCd As String, ByVal clientStr As String) As InSiteWebService.OutViewMachine

        Dim Txn As New InSiteWebService.InSiteServiceSoapClient
        Dim OutParamV As New InSiteWebService.OutViewMachine

        '●変数の初期設定
        Dim inViewMachine As New InSiteWebService.InViewMachine
        inViewMachine.Name = equipCd
        inViewMachine.Header = New InSiteWebService.InHeader
        inViewMachine.Header.User = INSITE_USER
        inViewMachine.Header.Password = PASSWORD
        inViewMachine.Header.Client = clientStr

        Try
            OutParamV = Txn.ViewMachineService_GetInf(inViewMachine)
            Return OutParamV
        Catch ex As Exception
            OutParamV.Header = New InSiteWebService.OutHeader
            OutParamV.Header.Status = STS_ERROR
            OutParamV.Header.ResultMessage(0) = ex.Message & " (" & ex.InnerException.Message & ")"
            Return OutParamV
        Finally
            Txn = Nothing
            OutParamV = Nothing
        End Try

    End Function

#End Region

End Module
